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**F 1LE**1D**_LABCHNDEF 
| 
LL AAAAAA BBBBBBBB cccccccc =H HH NN NN DDDDDDDD EEEEEEEEEE FFFFFFFFFF | 
LL AAAAAA BBBBBBBB Cccccccc =H HH NN NN DDDDDDDD EEEEEEEEEE FFFFFFFFFF 
LL AA AA BB BB CC HH HH NN NN DD DD EE FF 
LL Aa AA BB BB CC HH HH NN NN DD DD EE FF 
LL AA AA 68 BB CC HH HH NNNN NN DD DD EE FF 
LL Ab AA BB CC HH HH NNNN NN DD DD EE FF 
LL AA AA ®8888888B cc HHHHHHHHHH NN NN NN DD DD EEEEEEEE FFFFFFFF 
LL BBBBBBBB cc HHHHHHHHHH NN NN NN DD DD EEEEEEEE FFFFFFFF 
LL AAAAAAAAAA § BB BB CC HH HH NN NNNN DD DD EE FF 
LL AAAAAAAAAA BB BB CC HH HH NN NNNN ODD DD EE FF 
LL AA AA BB BB CC HH HH N NN DD DD EE FF cece 
LL AA AA 6B BB CC HH HH NN NN DD DD EE FF cece 
LLLLLLLLLL AA AA B8888B8B CCCCCCCC «HH HH NN NN DDDDDDDD EEEEEEEEEE FF cece 
LLLLLLLLLL AA AA B88B8BBB CCCCCCCC =H HH NN NN DDDDDDDD EEEEEEEEEE FF cece 
FFFFFFFFFF 000000 RRRRRRRR 
FFFFFFFFFF 000000 RRRRRRRR 
FF 00 00 RR RR 
FF 00 00 RR RR 
FF 00 OO RR RR 
FF 00 00 RR RR 
FFFFFFFF 00 O00 RRRRRRRR 
FFFFFFFF 00 00 RRRRRRRR 
FF 00 00 RR RR 
FF 00 OO RR RR 
FF 00 0O RR RR 
FF 00 00 RR RR 
FF 000000 RR RR | 
FF 000000 RR RR | 
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‘File: LABCHNDEF.FOR 
Version ‘'V04-000' 


eRe RRR ERE AAAAA EEE EAAAE AEA RTE 
' 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
tt ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
He ony IN ee WITH THE TERMS OF SUCH ait we WITH THE 


® 

® 

® 

® 

® 

® 

® 

; 0 ® 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. * 
. * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
tt CORPORATION. ® 
® 

® 

® 

« 

® 

we 


tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See RRR REE AEE AE RARER AERA ARATE ee 
' 
i 


Implicit Integer (A-Z) 


'AD_CHANNEL STATUS BLOCK defined the parameters associated 
twith each A/D channel 


'For each A/D channel: 
1) Status of the channel (ACTIVE or INACTIVE) 
) PID of the connected process allocated the channel 
) Tics/sample (time between sample in tics) 

4) Buffer size in words 

5) Buffer count (0 if no Limit) 

6) Buffers acquired : 

7) Index to the last full buffer containing valid data 

0 => No buffer available 
8) Number of data points in the last full buffer 


The fullowing elements are used by the data acquisition interrupt service 
routine. In general, they will not be used by an application process. 


Index to the current data acquisition buffer / 
) Number of data points in the current data acquisition buffer 
) Number of tics until the next sample 
») Offset to the next data point to be acquired (wrst buffer #1) 
(NOTE: Offset = Index - 


Parameter MAX_AD_CHANNEL = 16 ‘Maximum number of channels 
Parameter MAX-BUF SIZE = 512 ‘Maximum buffer size 
Parameter INACTIVE = 1 'Status values for AD_BLOCK 


! First flag of notify 
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LABCHNDEF .FOR;1 
Parameter ACTIVE = 2 : 
Integer*4 AD_BLOCK(MAX_AD_ CHANNEL, 16) 


Data buffers 


Parameter BUFFER_COUNT = 2 ! Number of buffers/channel 
Integer*2 DATA_BUFFER(MAX_BUF _SIZE,BUFFER_COUNT,MAX_AD_CHANNEL) 


‘This module defines the common data structures 
!for the privileged LABIO processes. 


'CONNECT BLOCK used to identify processes currently 
;connected to the LABIO process. 


iFor each process 13h BLOCK contains: 


Process ID ( 
Internal VMS 1/0 channel of the connected processes mailbox 


Parameter MAX_PID = 16 'Maximum number of processes 
Integert4 CONNECT_BLOCK (MAX_PID,2) 


DATA COMMON SECTION 
This will be mapped as a global data section 


Common /LABIO_SECTION/ AD BLOCK, DATA_BUFFER, CONNECT_BLOCK 
Common /LABIO-SECTION/ LABIO BUFFER E~'Last element of DATA section 
Equivalence (AD BLOCK,LABIO BOFFER_S) ‘First element of DATA section 
Integer*4 SECTION(2), SECTION SIZE 


Define Global Event Flag Cluster names and numbers 


EF _NOTIFY_CLUSTER is used to notify the orsvelrene | LABIO process 
that change of status has occured, i.e. channel h 

prcone on IVE or INACTIVE, or a buffer has been freed. 

Flags 0 3 of the cluster correspond to CHANNELS 1-16 

Flags 16- 1 are not used. 


Parameter EF _NOTIFY_CLSTR = ‘LABIO_EF_NOTIFY' 
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| Parameter EF _NOTIFY_1 = 64 
g wrreet. 4 Notify 
ameter Ai -NOTIFY_OFF = 63 
! Event fice EF _DAT A_ACG A,» set when Lio DATA -ACQ has completed initialization 
Parameter EF-D ACQ = FF =NOT IFY_T+1 
! Event Flag EF SCONNECT ts set w LABIO- CONNECT has completed initialization 
Parameter EF _CONNECT = Hy *NOTIF Y_T+18 


EF_STATUS is used to notify a yh pg tye process 


that a buffer is available, and u see) eet ian 
process 7? inicate the status eattive” be oTNA IVE) of 
' a channel. 


Flags 0-15 of the cluster are the ACTIVITY flags 

if set (by the application process), the corresponding 
channel(1=-16) is active. If clear, the channel is inactive. 
! When a change of state is made the correspend ing flag must 
also be set in Cluster EF -NOTIFY_CLUSTER 


Flags 16-31 are the buffer status en a when set 

a buffer for the sacreswenstee channel (1-16) is available. 

The application process mus clear the flag and set the corresponding 
flag in EF_NOTIFY_CLUSTER when it is finished with the buffer. 


Parameter EF _STATUS_CLSTR = ‘LABIO_EF_STATUS' 
'First event flag in Activit and Status 

Parameter EF _ACTIVIT a! 3 

Parameter EF_ST “ -% = EF -ACTIVITY_1 + 16 
‘Offset to oT and $ 

Parameter EF eACTIVITY 0 = Ay: 

Parameter EF_STATUS "OFF F_ACTIVITY_OFF + 16 


! BIT array, BIT(I1) = has bit I set ( 1 = 1 to 32 ) 
Integer*4 BIT(32) 


Data BIT/ "1°X,"2°K,°4'x X18. K."10°X,'20'X, '40'X, "B0°X, 

1 +100 Ox, *260'x, 400'X,"800'x,*1060'x,"2000'X, 

1 *4000'k, '8000 "10060" 36000" x "£0000'x, 

1 *80000'x, '100006'x ,200000'X *400600'x 

1 +800000'X, "1000000! x x" 2000006"x X,*4000060'x 

1 *8000000'x, '10000000'x, *20000006'x, '40000060'x, 
1 *80000000'x/ 


' 
iCEnd of File) 
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